home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Collections: Taifun
/
Taifun 136 (1990-05-15)(Ossowski, Stefan)(DE)(PD).zip
/
Taifun 136 (1990-05-15)(Ossowski, Stefan)(DE)(PD).adf
/
MF-Pascal_0.2
/
hell.p
< prev
next >
Wrap
Text File
|
1990-02-23
|
607b
|
30 lines
program hello(input,output);
{const
txt1 = "Hello world!";
pie = 3.141569;
einhalb = 0.5;
}type
farbe = (karo, herz, pik, kreuz);
point = record
x,y : integer;
end;
var
i, j: integer;
ia: array [2..5] of array [0..4] of integer;
r: real;
karte: farbe;
start: point;
begin
i := start.x;
j := ia [i+3][j] - j;
karte := herz;
i := 17+4+3+8-(2*3);
j := 2*i;
{ r := 17.0+4.0+3.0+8.0-(2.0*3.0);
writeln(txt1);
writeln("i =",i," j =",j);
writeln("r =",r);
writeln(output,"Nun dies :",17,24.9,17+4,17.5+3.5);
writeln("Pie =",pie);
}end.